

/* Change the 1990 census industry codes into destination industry codes */
/* Variable ind_des contains the destination industry codes */
/* Variable ind_90 contains the original 1990 census industry codes */

#delimit;
gen ind_des=ind_90;
replace ind_des=20  if ind_90==12;
replace ind_des=21  if ind_90==20;
replace ind_des=20  if ind_90==30;
replace ind_des=30  if ind_90==31;
replace ind_des=31  if ind_90==32;
replace ind_des=460 if ind_90==450;
replace ind_des=461 if ind_90==451;
replace ind_des=462 if ind_90==452;
replace ind_des=630 if ind_90==623;
replace ind_des=631 if ind_90==630;
replace ind_des=632 if ind_90==631;
replace ind_des=640 if ind_90==632;
replace ind_des=640 if ind_90==633;
replace ind_des=682 if ind_90==661;
replace ind_des=661 if ind_90==662;
replace ind_des=662 if ind_90==663;
replace ind_des=740 if ind_90==732;
replace ind_des=741 if ind_90==740;
replace ind_des=742 if ind_90==741;
replace ind_des=750 if ind_90==742;
replace ind_des=800 if ind_90==801;
replace ind_des=801 if ind_90==802;
replace ind_des=802 if ind_90==810;
replace ind_des=862 if ind_90==863;
replace ind_des=881 if ind_90==873;
replace ind_des=730 if ind_90==891;
replace ind_des=732 if ind_90==892;
replace ind_des=892 if ind_90==893;

#delimit cr
